home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / intuition / IText.st < prev    next >
Text File  |  2000-05-03  |  2KB  |  83 lines
  1. "---------------------------------------------------"
  2. " IText Class implements control of Amiga IntuiText "
  3. " except for actually displaying it, which is in the"
  4. " Window class.  Class Font uses the same basic     "
  5. " primitive number.                                 "
  6. "---------------------------------------------------"
  7.  
  8. Class IText :Glyph
  9. ! 
  10.   frontPen backPen drawMode     leftEdge   topEdge 
  11.   fontName theText nextTextName textLength theTextName
  12. !
  13. [
  14.    getPens
  15.       frontPen <- <primitive 188 2 0 theTextName>.
  16.       backPen  <- <primitive 188 2 1 theTextName>.
  17.       ^ frontPen @ backPen
  18. |
  19.    getTextLength
  20.       ^ textLength <- <primitive 188 9 theTextName>
  21. |
  22.    getIText
  23.       ^ theText <- <primitive 188 2 6 theTextName>
  24. |
  25.    getDrawMode
  26.       ^ drawMode <- <primitive 188 2 2 theTextName>
  27. |
  28.    getITextOrigin
  29.       leftEdge <- <primitive 188 2 3 theTextName>.
  30.       topEdge  <- <primitive 188 2 4 theTextName>.
  31.       ^ leftEdge @ topEdge
  32. |
  33.    getFontName
  34.       ^ fontName <- <primitive 188 2 5 theTextName>
  35. |
  36.    getNextText
  37.       ^ nextTextName <- <primitive 188 2 7 theTextName>
  38. |
  39.    setPens: newPensPoint ! fp bp !
  40.       fp <- newPensPoint x.
  41.       bp <- newPensPoint y.
  42.       <primitive 188 3 0 fp theTextName>.
  43.       <primitive 188 3 1 bp theTextName>.
  44.       frontPen <- fp.
  45.       backPen  <- bp
  46. |
  47.    setDrawMode: newDrawMode
  48.       <primitive 188 3 2 newDrawMode theTextName>.
  49.       drawMode <- newDrawMode
  50. |
  51.    setITextOrigin: newPoint ! x y !
  52.       x <- newPoint x.
  53.       y <- newPoint y.
  54.       <primitive 188 3 3 x theTextName>.
  55.       <primitive 188 3 4 y theTextName>.
  56.       leftEdge <- x.
  57.       topEdge  <- y
  58. |
  59.    setFontName: newFontName
  60.       <primitive 188 3 5 newFontName theTextName>.
  61.       fontName <- newFontName
  62. |
  63.    setNextText: newNextText
  64.       <primitive 188 3 7 newNextText theTextName>.
  65.       nextTextName <- newNextText
  66. |
  67.    setIText: newIText
  68.       <primitive 188 3 6 newIText theTextName>.
  69.       theText <- newIText
  70. |
  71.    remove
  72.       <primitive 188 0 theTextName>
  73. |
  74.    registerTo: windowTitle
  75.       <primitive 188 8 windowTitle theTextName>
  76. |
  77.    new: newIText
  78.       theText     <- newIText.
  79.       theTextName <- newIText.
  80.       <primitive 188 1 newIText newIText>.
  81.       ^ self
  82. ]
  83.